home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swagd_f.zip / DRIVES.SWG / 0052_Detecting CD-ROM.pas < prev    next >
Pascal/Delphi Source File  |  1993-11-02  |  457b  |  27 lines
  1. {
  2. WIM VAN VOLLENHOVEN
  3.  
  4. >No, I'm looking for an generic CD-ROM detection routine.
  5. >Thought it was some subfunction of int 2Fh. Don't know if it detected
  6. >the presence of a CD-Rom, or the presence of MSCDEX.
  7. }
  8. Uses
  9.   Dos;
  10.  
  11. Var
  12.   Regs : Registers;
  13.  
  14. Procedure IsCDRom;
  15. begin
  16.    Regs.AX := $1500;
  17.    Regs.BX := $0000;
  18.    Regs.CX := $0000;
  19.    Intr( $2F, Regs);
  20.    writeln('CD Available : ', (Regs.BX > 0));
  21. end;
  22.  
  23.  
  24. begin
  25.   IsCDRom;
  26. end.
  27.